COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.testno←"8513"		<< test ID controls question selection >>
C00016 ENDMK
C⊗;
.testno←"8513";		<< test ID controls question selection >>
.<<		Generates an examination
.First, say PUB TESTG to generate a list of questions in a DOC file.
.>>
.device tty
.page frame 3000 high 80 wide;
.area text lines 1 to 3000;
.
.rand←testno;		<< pseudo-random number >>
.turn on "{";
.at "⊗" rul "." quest "∞";	⊂
.  rand←((rand*50505)mod 8192)+1; ord←"000"[1 to 4-length(rand)]&rand;
π{ord}λrulλquest∞

. ⊃
.macro comm 	⊂ if false then start ⊃;
.macro enc	⊂ end ⊃
.fill nojust;
.NEXT PAGE;		<< pass along the test number to the next process >>
ε{testno}λ

.require "test.pub[c,les]" source_file;
.
.fill;
.tty←"Next, say ""R SSORT""";
.tty←"*testg.doc/B";
.tty←"and answer ""yes"" when it asks about overwriting the testg.doc file.";
.tty←"Finally, say ""PUB TESTH"" to list the test and scoring sheet.";